#include  <unistd.h>
#include  <sys/types.h>       /* basic system data types */
#include  <sys/socket.h>      /* basic socket definitions */
#include  <netinet/in.h>      /* sockaddr_in{} and other Internet defns */
#include  <arpa/inet.h>       /* inet(3) functions */

#include <stdlib.h>
#include <errno.h>
#include <stdio.h>
#include <string.h>


#include <poll.h> /* poll function */
#include <limits.h>

#define MAXLINE 10240

#ifndef OPEN_MAX
#define OPEN_MAX 40960
#endif

void handle(struct pollfd* clients, int maxClient, int readyClient);

int  main(int argc, char **argv)
{
    int servPort = 6888;
    int listenq = 1024;
    int listenfd, connfd;
    struct pollfd clients[OPEN_MAX];
    int  maxi;
    socklen_t socklen = sizeof(struct sockaddr_in);
    struct sockaddr_in cliaddr, servaddr;
    char buf[MAXLINE];
    int nready;

    bzero(&servaddr, socklen);
    servaddr.sin_family = AF_INET;
    servaddr.sin_addr.s_addr = htonl(INADDR_ANY);
    servaddr.sin_port = htons(servPort);

    listenfd = socket(AF_INET, SOCK_STREAM, 0);
    if (listenfd < 0) {
        perror("socket error");
    }

    int opt = 1;
    if (setsockopt(listenfd, SOL_SOCKET, SO_REUSEADDR, &opt, sizeof(opt)) < 0) {
        perror("setsockopt error");
    }

    if(bind(listenfd, (struct sockaddr *) &servaddr, socklen) == -1) {
        perror("bind error");
        exit(-1);
    }
    if (listen(listenfd, listenq) < 0) {
        perror("listen error");    
    }

    clients[0].fd = listenfd; //将数组中的第一个元素设置成监听描述字
    clients[0].events = POLLIN; //将测试条件设置成普通或优先级带数据可读
    int i;
    for (i = 1; i< OPEN_MAX; i++) //数组中的其它元素将暂时设置成不可用
        clients[i].fd = -1; 
    maxi = listenfd + 1;

    printf("pollechoserver startup, listen on port:%d\n", servPort);
    printf("max connection is %d\n", OPEN_MAX);

    for ( ; ; )  {
        nready = poll(clients, maxi + 1, -1); //将进程阻塞在poll上  返回值： 0 超时 -1 出错
		printf("maxi: %d\n", maxi);
        //printf("nready is %d\n", nready);
        if (nready == -1) { //出错
            perror("poll error");
        }
		//因为poll成功返回，但是我们是有新链接还是链接里有读数据请求，所以我们先检查是否有新连接请求
		//也就是clients[0]保存的监听描述字
		//如果有新连接请求，那么建立新的连接，然后将新连接加入到clients数据以便进行监听
		//否则检查其它socket连接套接字的监听，检查是否有数据可读
        if (clients[0].revents & POLLIN) { //先测试监听描述字
            connfd = accept(listenfd, (struct sockaddr *) &cliaddr, &socklen);
            sprintf(buf, "accept form %s:%d\n", inet_ntoa(cliaddr.sin_addr), cliaddr.sin_port);
            printf(buf, "");

            for (i = 0; i < OPEN_MAX; i++) {//找到一个没有使用的client，将它用来保存新连接进入的客户连接描述符
                if (clients[i].fd == -1) {
                    clients[i].fd = connfd; //将新连接加入到测试数组中
                    clients[i].events = POLLIN; //测试条件普通数据可读
                    break;
                }
            }

            if (i == OPEN_MAX) {//表明上一个循环里，所有client均被占用，则表示连接达到最大值
                fprintf(stderr, "too many connection, more than %d\n", OPEN_MAX);
                close(connfd);
                continue;
            }

            if (i > maxi)
                maxi = i;//maxi记录的是最大描述符+1, 因为我们新加了一个连接描述符，这个数可能比已存在的最大描述符大，所以更新它

            --nnready; //可读的描述符减少，就重新监听连接
        }

		//检查socket连接的套接字状态
        handle(clients, maxi, nready);
    }
}

void handle(struct pollfd* clients, int maxClient, int nready) {
    int connfd;
    int i, nread;
    char buf[MAXLINE];

    if (nready == 0)
        return;

    for (i = 1; i< maxClient; i++) { //测试除监听描述字以后的其它连接描述字
        connfd = clients[i].fd;
        if (connfd == -1) //如果当前描述字不可用，就测试下一个
            continue;
        if (clients[i].revents & (POLLIN | POLLERR)) { //如果当前描述字返回的是普通数据可读或出错条件
            nread = read(connfd, buf, MAXLINE);//读取客户端socket流
            if (nread < 0) { //读取出错
                perror("read error");
                close(connfd);
                clients[i].fd = -1;
                continue;
            }
            if (nread == 0) { //如果数据读取完毕，关闭连接，设置当前描述符不可用
                printf("client close the connection");
                close(connfd);
                clients[i].fd = -1;
                continue;
            }

            write(connfd, buf, nread);//响应客户端  
            if (--nready <= 0)//没有连接需要处理，退出循环
                break;
        }
    }
}
